home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __adventureland__ / __adventure_helpers__ / gurps__3rd_edition / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-01-08  |  8KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>139</cardCount>
  7.     <cardID>11043</cardID>
  8.     <listID>59740</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>On DoWeightput field "Weight" of card "Work" into weightif (weight > (line 5 of (field "Encumbrances" of card "Work")) ) thenput 0 into field "Move" of card "Work"elseif (weight > (line 4 of (field "Encumbrances" of card "Work")) ) thenput DoMove(4) into field "Move" of card "Work"elseif (weight > (line 3 of (field "Encumbrances" of card "Work")) ) thenput DoMove(3) into field "Move" of card "Work"elseif (weight > (line 2 of (field "Encumbrances" of card "Work")) ) thenput DoMove(2) into field "Move" of card "Work"elseif (weight > (line 1 of (field "Encumbrances" of card "Work")) ) thenput DoMove(1) into field "Move" of card "Work"end ifend ifend ifend ifend ifPut (field "Move" of card "Work") into field "Dodge" of card "Work"End DoWeightfunction DoMove Eif (trunc(field "Speed" of card "Work"))>E thenput (trunc((field "Speed" of card "Work")-E)) into Xelseput 1 into Xend ifreturn XEnd DoMovefunction PointValue ATif AT=empty thenput 0 into Pend ifif AT=1 thenput value(-80) into Pelse if AT=2 thenput value(-70) into Pelse if AT=3 thenput value(-60) into Pelse if AT=4 thenput value(-50) into Pelse if AT=5 thenput value(-40) into Pelse if AT=6 thenput value(-30) into Pelse if AT=7 thenput value(-20) into Pelse if AT=8 thenput value(-15) into Pelse if AT=9 thenput value(-10) into Pelse if AT=10 thenput value(0) into Pelse if AT=11 thenput 10 into Pelse if AT=12 thenput 20 into Pelse if AT=13 thenput 30 into Pelse if AT=14 thenput 45 into Pelse if AT=15 thenput 60 into Pelse if AT=16 thenput 80 into Pelse if AT=17 thenput 100 into Pelse if AT=18 thenput 125 into Pelse if AT=19 thenput 150 into Pelse if AT=20 thenput 175 into Pend ifreturn Pend PointValueon ExDglobal pointsput 0 into enderset the cursor to 4put 1 into iput line i of field "Disadvantages" of card "Work" into brepeat while (b<>empty)if offset(the param of 2,b)=1 thenput 1 into enderput line i of field "Dpoints" of card "Work" into danswer "Keep" && b & ", Cost: "& d & "?" with "Yes" or "No"set the cursor to 4if it is "No" thenput d into negpointsput empty into line i of field "Disadvantages" of card "Work"put empty into line i of field "Dpoints" of card "Work"put points-negpoints into pointsput points into field "Points" of card "Work"put line i+1 of field "Disadvantages" of card "Work" into crepeat while (c<>empty)put line i+1 of field "Disadvantages" of card "Work"┬¼into line i of field "Disadvantages" of card "Work"put line i+1 of field "DPoints" of card "Work"┬¼into line i of field "DPoints" of card "Work"put empty into line i+1 of field "Disadvantages" of card ┬¼"Work"put empty into line i+1 of field "DPoints" of card ┬¼"Work"put i+1 into iput line i+1 of field "Disadvantages" of card "Work" into cend repeatend ifend ifput i+1 into iput line i of field "Disadvantages" of card "Work" into bend repeatif (ender=0) thenput the param of 1 into line i of Field "Disadvantages" of card "Work"put the param of 3 into line i of field "DPoints" of card "Work"put points+(the param of 3) into pointsput points into field "Points" of card "Work"end ifvisual effect iris closepop cardend ExDon AExDglobal pointsput 0 into enderset the cursor to 4put 1 into iput line i of field "Advantages" of card "Work" into brepeat while (b<>empty)if offset(the param of 2,b)=1 thenput 1 into enderput line i of field "Apoints" of card "Work" into danswer "Keep" && b & ", Cost: "& d & "?" with "Yes" or "No"set the cursor to 4if it is "No" thenif ((the param of 2)="Eidetic Memory") then ┬¼put 1 into field "Eidetic" of card "Work"put d into negpointsput empty into line i of field "Advantages" of card "Work"put empty into line i of field "Apoints" of card "Work"put points-negpoints into pointsput points into field "Points" of card "Work"put line i+1 of field "Advantages" of card "Work" into crepeat while (c<>empty)put line i+1 of field "Advantages" of card "Work"┬¼into line i of field "Advantages" of card "Work"put line i+1 of field "APoints" of card "Work"┬¼into line i of field "APoints" of card "Work"put empty into line i+1 of field "Advantages" of card ┬¼"Work"put empty into line i+1 of field "APoints" of card ┬¼"Work"put i+1 into iput line i+1 of field "Advantages" of card "Work" into cend repeatend ifend ifput i+1 into iput line i of field "Advantages" of card "Work" into bend repeatif (ender=0) thenput the param of 1 into line i of Field "Advantages" of card "Work"put the param of 3 into line i of field "APoints" of card "Work"put points+(the param of 3) into pointsput points into field "Points" of card "Work"if ((the param of 2)="Eidetic Memory") thenif ((the param of 1)="Eidetic Memory, Partial") thenput .5 into field "Eidetic" of card "Work"elseput .25 into field "Eidetic" of card "Work"end ifend ifend ifvisual effect iris closepop cardend AExDfunction NextSpace bput 1 into iput line i of field "Disadvantages" of card "Work" into brepeat until (b is empty)put i+1 into iput line i of field "Disadvantages" of card "Work" into bend repeatreturn iend NextSpacefunction Exclusive ATglobal disadv,disadvp,points,killedset the cursor to 4put 1 into iput line i of field "Disadvantages" of card "Work" into brepeat while (b<>empty)if offset(AT,b)=1 thenanswer "Keep" && b & "?" with "Yes" or "No"set the cursor to 4if it is "No" thenput line i of field "DPoints" of card "Work" into negpointsput empty into line i of field "Disadvantages" of card "Work"put empty into line i of field "Dpoints" of card "Work"put points-negpoints into pointsput points into field "Points" of card "Work"put line i+1 of field "Disadvantages" of card "Work" into crepeat while (c<>empty)put line i+1 of field "Disadvantages" of card "Work"┬¼into line i of field "Disadvantages" of card "Work"put line i+1 of field "DPoints" of card "Work"┬¼into line i of field "DPoints" of card "Work"put empty into line i+1 of field "Disadvantages" of card ┬¼"Work"put empty into line i+1 of field "Dpoints" of card "Work"put i+1 into iput line i+1 of field "Disadvantages" of card "Work" into cend repeatvisual effect iris closepop cardput empty into ATreturn ATelse if it is "Yes" thenvisual effect iris closepop cardput empty into ATreturn ATend ifend ifput i+1 into iput line i of field "Disadvantages" of card "Work" into bend repeatreturn ATend Exclusivefunction Nonexclusive ATglobal disadv,disadvp,points,killedset the cursor to 4put 1 into iput line i of field "Disadvantages" of card "Work" into brepeat while (b<>empty)if offset(AT,b)<>0 thenput line i of field "DPoints" of card "Work" into danswer "Keep" && b & ", Cost:" && d & "?" with "Yes" or "No"set the cursor to 4if it is "No" thenput line i of field "DPoints" of card "Work" into negpointsput empty into line i of field "Disadvantages" of card "Work"put empty into line i of field "DPoints" of card "Work"put points-negpoints into pointsput points into field "Points" of card "Work"put line i+1 of field "Disadvantages" of card "Work" into crepeat while (c<>empty)put line i+1 of field "Disadvantages" of card "Work"┬¼into line i of field "Disadvantages" of card "Work"put line i+1 of field "DPoints" of card "Work"┬¼into line i of field "DPoints" of card "Work"put empty into line i+1 of field "Disadvantages" of card ┬¼"Work"put empty into line i+1 of field "DPoints" of card ┬¼"Work"put i+1 into iput line i+1 of field "Disadvantages" of card "Work" into cend repeatvisual effect iris closepop cardput empty into